home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / DEVICES / SPEAKER.PAS < prev   
Pascal/Delphi Source File  |  1996-08-16  |  504b  |  16 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; speaker
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBBAS, EFLIBIO;
  10.  
  11.  
  12. begin
  13.      { Generate a nice sound effect }
  14.      Speaker.SoundEffect (3000, 100, 7, 0);
  15.      Speaker.SoundEffect (100, 3000, 7, 0);
  16. end.